Public Sub AnonymousIdentification_Creating(ByVal sender As Object, ByVal e As AnonymousIDentificationEventArgs)

        e.AnonymousID = "Kuleczki " & DateTime.Now()

End Sub
